Discover the Great Lakes

home *** CD-ROM | disk | FTP | other *** search

/ Discover the Great Lakes / Discover the Great Lakes.iso / TB40ANM.SBK (.txt) < prev next >

Wrap

Asymetrix ToolBook File | 1995-11-12 | 65KB | 664 lines

MS Sans Serif info_LastSavedBy /95 11:30:33 AM info_LastSaved Mike Florence Jeffrey Ayars MS Sans Serif Arial 8/11/95 11:38:17 AM 9411011714178865372342 ASYM_TpID enterpage buttonclick notifyBefore buttonclick Script ToolBook 4.0 - Runtime Path Animation SysBookkon SysBook Copyright 1995 Asymetrix Corporation enterpage @F , , K *ClassTbl* *ClassEntry* *PTABLE* *WINDOWSEG* Viewer *ICONRESTAB* *ICONRESSEG* *ICONRES* Background *OBJTABLE* *IDTABLE* *NAMETAB* Rectangle Ellipse RoundedRectangle Polygon IrregularPolygon AngledLine Curve Field RecordField ComboBox Button PaintObject Picture Hotword *RHOTWORD* Group Stage *TbxBase* " BJTABLE* , eld bxBase* " , bxBase* -- SYSTEM message handlers related animations linkSysbook setUpDlls -- traps moved repositions x path -- user has xselected coordinate s_anim_idleAnimations LOCAL newPos, settingsTable[][] "anim_animationSettings" ss = = FALSE e<> "anim_edit" dimensions( ) <> anim_startPosition(1) dx = dy = i][13] "Author" anim_StartPosition(i) + dx, 8(i) -- These are helper functions startup -- LOGICAL sysSuspendState use instead getTickCount() -- IT's more accurate calculating durations linkDLL "mmSystem.dll" DWORD a_timeGetTime= scripts playing playAnimation , notifyObject, waitTillDone ns,s_anim_animationCache[][] = NULL ) = 1 only which actually have = objectAnimation( ) = 0 theTarget = ns) = 0 startAnimTimer IT's already being animated on Fstop restart IT <> IT = he[i][3] <> doneAnimatingNotify "Reset he[i][12] animCount = ns = -- i igger than -- because we going ns = he[i][1] = () --StartTime he[i][2] = 0 --CurrentStep he[i][3] = he[i][j] = he[i][12] = starting point lockScreen e= TRUE he[i][6] he[i][4] -- finish 4continuing IT <> playStep j he[j][12] yieldApp() (sysMediaBreakKey) = down IT <> stopAnimation "aborted he[i][12] ns = -- potential infinite loop ( reps=forever) unless presses Escape key ns) = 0 stopAnimTimer -- stops "During Idle" Hremoving IT status he[][] IT > 1 IT <> 0 = ns) IT <> 0 IT = 0 IT <> 0 ns = he[IT][1] = 0 he[IT][3] -- he[IT][12] there animating ns <> entries i > IT IT = 0 -- lets users specify a jumpToStep whichStep, whichAnimation $ = 1 ) > 0 < 0 )*4-3 fake out /sized tempSuspendMessages = sysSuspendMessages >= IT updateCel [11], anim_CurrentStep( a percent full length jumpToPercent percentComplete, ) > 0 < 0 +1)*4-3 +1)*4 -- >= IT -- [11], -- plays -- called "Without Yielding" currentAnim he[][] theTickCount, stepNumber,celNumber Q][5]; -- showing frames z][2] + 1 -- IT should be on -- what been covered Hnow? %complete = [elapsed Isince mSec] ][1])/ ][8]/1000 ][9]) screen so happen simultaneously ls = >= ( ][9] * ][7]) ][7] <> 0 -- IT's past -- ][9] * 4 + 1 IT + 3 ][10] >= IT -- fbuilt- ][11], ][9], -- queue IT's on its successful" -- specified ][9]) -- (IT+1)*4-3 (IT+1)*4 ][10] >= IT -- ][11], -- currentStep ][2] = e= ls -- hides shows , StepsPerCel, previousstepNumber CelNumberToShow,CelNumberToHide,CelCount < so that -- ( $ 0 corresponds -- calculate fregards -- so always starts ) -- total Cels = 0 -- i.e. n kn = 0 Mwe want -- shown -- so = 0 -- i.e. n kn = 0 -- assume = 1 ,whatObject so no error generated sent }without -- sends -- can be fa list restoreAnimation objectList, animationList g) > 0 currentObject closeAllAnimations he[][] isOpen he[i][12] he[i][12] he[i][12] default -- these utilities getting a single rowNum ss = S = 1 l][1] <> [i] = [14] = ss = [14]][i] = 1][i] = working outside editor interface animationCacheEntry IT > 1 IT <> 0 IT <> 0 IT = 0 -- Run Properties anim_Offset he[][] IT = 0 he[IT][6] value he[][] IT <> 0 isType(POINT, he[IT][6] = r= -1 he[][] IT = 0 he[IT][2] he[][] IT <> 0 he[IT][2] = -- Persistent anim_NumRepetitions he[][] IT = 0 ) > 0 he[IT][7] he[][] IT <> 0 he[IT][7] = 4 = K ) > 0 V [7] = anim_CelAnimation he[][] IT = 0 ) > 0 he[IT][4] he[][] IT <> 0 he[IT][4] = }! = !) > 0 ![4] = anim_ShowAllSteps he[][] IT = 0 &") > 0 4"[5] he[IT][5] he[][] IT <> 0 he[IT][5] = ") > 0 "[5] = anim_Duration C he[][] IT = 0 Z# = r#) > 0 he[IT][8] he[][] IT <> 0 !he[IT][8] = 0$) > 0 ;$[8] = anim_NumSteps !he[][] IT = 0 $) > 0 "he[IT][9] $"he[][] IT <> 0 a"he[IT][9] = e% = |%) > 0 %[9] = anim_StepsPerCell "he[][] IT = 0 &) > 0 &[11] Q#he[IT][11] v#he[][] IT <> 0 0$", #he[IT][11] = &) > 0 &[11] = 0') > 0 ='[6] q' = ') > 0 '[6] = -- Read Only (persistent) anim_StartSize () > 0 ([15] anim_EndSize X( = o() > 0 |([16] anim_StartTime %he[][] IT = 0 &he[IT][1] anim_elapsedTime -&he[][] IT = 0 &() - c&he[IT][1] anim_currentTime % stuff updateAnimations )ns, &he[][] *ns) whatAnim = ;'he[i][12] *ns) > 0 'he[i][12] 'he[i][12] +ns) = 0 animTimer whatHandle, whatMsg, wparam Q,animTimerID, "USER" INT anim_setTimer = SetTimer ( 0killTimer = KillTimer ( = 4843 `(sysClientHandle, ,20,0) ("Could xsetup #-, no +- will translateWindowMessage 0x001F 0x0113 anim_killTimer( untranslateWindowMessage 0 ectAnimati vDnDnD setUpDlls linkSysbook Author s_anim_idleAnimations Canim_StartPosition anim_edit anim_animationSettings Canim_StartPosition Canim_startPosition anim_animationSettings moved timeGetTime a_timeGetTime mmSystem.dll setUpDlls ,&H.& ,&H.& 1+V!8 ,&H.& ,&H.& s_anim_animationCache }gyieldApp ZstopAnimation s_anim_idleAnimations }playStep objectAnimation Reset by play command YdoneAnimatingNotify theTarget 9a_timeGetTime _stopAnimTimer startAnimTimer aborted by the user playAnimation 1, "V s_anim_animationCache _stopAnimTimer s_anim_idleAnimations YdoneAnimatingNotify notifyObj stopAnimation 1+V!8 Author anim_CurrentStep objectAnimation updateCel jumpToStep whichStep Author anim_CurrentStep objectAnimation updateCel jumpToPercent s_anim_animationCache successful ZstopAnimation 9a_timeGetTime updateCel playStep 1+V!! 1+V!8 updateCel doneAnimatingNotify currentAnim jumpToStep currentObject restoreAnimation .'+ +F ,&H.& s_anim_animationCache _stopAnimTimer s_anim_idleAnimations ZstopAnimation restoreAnimation aborted by the user default closeAllAnimations anim_animationSettings objectAnimation anim_animationSettings anim_animationSettings objectAnimation 1, "V s_anim_idleAnimations animationCacheEntry s_anim_animationCache ULanimationCacheEntry anim_Offset s_anim_animationCache ULanimationCacheEntry anim_Offset s_anim_animationCache ULanimationCacheEntry anim_CurrentStep s_anim_animationCache ULanimationCacheEntry anim_CurrentStep s_anim_animationCache objectAnimation ULanimationCacheEntry whichAnimation anim_NumRepetitions s_anim_animationCache objectAnimation ULanimationCacheEntry whichAnimation objectAnimation anim_NumRepetitions s_anim_animationCache objectAnimation ULanimationCacheEntry whichAnimation anim_CelAnimation s_anim_animationCache objectAnimation ULanimationCacheEntry whichAnimation objectAnimation anim_CelAnimation s_anim_animationCache objectAnimation ULanimationCacheEntry anim_ShowAllSteps s_anim_animationCache objectAnimation ULanimationCacheEntry objectAnimation anim_ShowAllSteps s_anim_animationCache objectAnimation ULanimationCacheEntry anim_Duration s_anim_animationCache objectAnimation ULanimationCacheEntry objectAnimation anim_Duration s_anim_animationCache objectAnimation ULanimationCacheEntry anim_NumSteps s_anim_animationCache objectAnimation ULanimationCacheEntry objectAnimation anim_NumSteps s_anim_animationCache objectAnimation ULanimationCacheEntry anim_StepsPerCell s_anim_animationCache objectAnimation ULanimationCacheEntry objectAnimation anim_StepsPerCell objectAnimation anim_StartPosition objectAnimation objectAnimation anim_StartPosition objectAnimation anim_StartSize objectAnimation anim_EndSize s_anim_animationCache ULanimationCacheEntry anim_StartTime s_anim_animationCache ULanimationCacheEntry 9a_timeGetTime anim_elapsedTime 9a_timeGetTime anim_currentTime ,&H.& ,&H.& s_anim_animationCache ZstopAnimation s_anim_idleAnimations whatAnim }playStep _stopAnimTimer aborted by the user updateAnimations updateAnimations animTimerID animTimer zIanim_setTimer SetTimer anim_setTimer KillTimer anim_killTimer Could not setup animation, no animations will play. animTimer animTimer closeAllAnimations animTimerID startAnimTimer Rlanim_killTimer animTimer animTimerID stopAnimTimer L$closeAllAnimations author 1, "V s_anim_idleAnimations animationCacheEntry s_anim_ani Jhx!h+